home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
atutr202.zip
/
ed.ada
< prev
next >
Wrap
Text File
|
1992-09-04
|
4KB
|
76 lines
L--T+-T--T--T-+T--T2-T--T--T-3T---+----4----+----5----+----6----+----7----+---
( This file will customize the Shareware word processor PC-Write Advanced )
( Level (tm) by Quicksoft(tm) for editing Ada source code whenever you edit )
( a file with the extension ".ADA". Most of the Ctrl keys, A-Z, and most of )
( the Ctrl-Alt keys, A-Z, are given special meanings. Ver. 2.02 4-SEP-1992 )
( )
( To demonstrate, Type Ctrl-P TEST Ctrl-Z. Then type Ctrl-I X. Next, type )
( Ctrl-D to insert Declarations and type X space : space Ctrl-Alt-B ; )
( )
( Written by Software Innovations Technology, 1083 Mandarin Drive NE, )
( Palm Bay, Florida 32905-4706 (407) 951-0233. You may freely copy and )
( distribute this file. )
( )
( Send for a copy of our Shareware ADA-TUTR (Ada Tutor) program on a 5 1/4" )
( disk! Only $10 for a trial copy, or $30 for a registered copy for full )
( use by one individual with one year of Technical Support. Send $5 more if )
( you prefer a 3.5" disk. Multi-user licenses for companies, schools, etc. )
( are available at very reasonable prices. Registered individuals can earn )
( generous commissions by selling licenses and individual registrations. )
( Full information is included with ADA-TUTR. The computer can have a color )
( or monochrome monitor. An Ada compiler is not required. Because Ada )
( source code is included, ADA-TUTR will run on mainframes and any other )
( computers with Ada compilers. )
( )
( Other than being a registered user of PC-Write Advanced Level, we have no )
( connection with Quicksoft. However, we'll send you a copy of the latest )
( version of PC-Write Advanced Level on four 5.25" disks or two 3.5" disks )
( for $20. This price is only for copying; registration with Quicksoft is )
( not included. )
( )
400:403 (Turn off automatic reformatting and word wrap.)
(Ctrl characters:)
A:"array() of ",371,331,331
B:"begin",265,"end",328,335,265," ",336
C:"case",265,"end case;",328,335,265," when "
D:403,319,359,323,"begin",330,317,336,317,317,319,328,328,765," ",266
(insert Declarations)
E:"elsif then",371,331
F:"for loop",265,"end loop;",328,335,265," ",328,333
G:" := " ("gets")
H:"16##",331 ("hex")
I:"if then",265,"end if;",328,335,265," ",328
L:"loop",265,"end loop;",328,335,265," "
M:"mod "
N:"null"
O:"others =>"
P:"procedure "
R:"return "
S:"separate"
T:"type "
W:"while loop",265,"end loop;",328,335,265," ",328,333,333,333
Z:"( is",335,265,"begin",335,265," ",335,265,261,261,261,"end ",328,328,328;
327,359,323,"(",334,319,317,371,317,336,336,336,335,317,319,";",359,328,328;
328,335,371,331,261,336,336,335
(Adds is begin ... end NAME;)
(Ctrl Alt characters:)
530:"BOOLEAN"
531:"CHARACTER"
532:"DIRECT_IO"
533:"not END_OF_FILE()",331
534:"FILE_TYPE;"
535:"GET_LINE();",331,331
537:"INTEGER"
540:"LONG_"
542:"NEW_LINE;"
543:"OPEN();",331,331
544:"PUT_LINE();",331,331
546:"READ();",331,331
547:"STRING"
548:"TEXT_IO"
549:"UNCHECKED_CONVERSION"
550:"'VALUE()",331
551:"WRITE();",331,331